function VAL = OPT(oParams,upMat,equity)
% Calculate the value that R&D adds for an incumbents
% It just calculates the part over which the maximum operator goes (change in equity value minus costs)

% Variables:
% oParams	see readme
% upMat		updating matrix equity value
% equity	equity value

	VAL = upMat.LG*equity' - (1-oParams.pi)*upMat.Q;

end
